home *** CD-ROM | disk | FTP | other *** search
/ Amiga Developer CD 2.1 / Amiga Developer CD v2.1.iso / Contributions / Cloanto / Applications / PPaint6.4 / Rexx / AnimBrushToAnim.pprx < prev    next >
Encoding:
Text File  |  1996-06-17  |  2.1 KB  |  119 lines
  1. /* PPaint Amiga Rexx script - Copyright © 1995 Cloanto Italia srl */
  2.  
  3. /*
  4.   $VER: AnimBrushToAnim.pprx 1.0
  5.  
  6.   This script converts an Anim-Brush into an animation.
  7.  
  8.   For more information, or suggestions, please address E-mail to
  9.  
  10.     <info@cloanto.com>
  11.  
  12. */
  13.  
  14.  
  15. MYPORT = 'PPAINT'
  16.  
  17. IF ~SHOW('P', MYPORT) THEN DO
  18.     IF EXISTS('PPaint:PPaint') THEN DO
  19.         ADDRESS COMMAND 'Run >NIL: PPaint:PPaint'
  20.         DO 30 WHILE ~SHOW('P',MYPORT)
  21.              ADDRESS COMMAND 'Wait >NIL: 1 SEC'
  22.         END
  23.     END
  24.     ELSE DO
  25.         SAY "Personal Paint could not be loaded."
  26.         EXIT 10
  27.     END
  28. END
  29.  
  30. IF ~SHOW('P', MYPORT) THEN DO
  31.     SAY 'Personal Paint Rexx port could not be opened.'
  32.     EXIT 10
  33. END
  34.  
  35. ADDRESS VALUE MYPORT
  36. OPTIONS RESULTS
  37. OPTIONS FAILAT 10000
  38.  
  39. Version 'REXX'
  40. IF RESULT < 4 THEN DO
  41.     errmess = 'This script requires a newer_version of Personal Paint.'
  42.     SAY errmess
  43.     RequestNotify 'PROMPT="'errmess'"'
  44.     EXIT 10
  45. END
  46.  
  47.  
  48. FreeEnv QUERY
  49. IF RC ~= 0 THEN EXIT RC
  50.  
  51.  
  52. LockGUI
  53. loaded = 0
  54. GetBrushAttr FRAMES
  55. frnum = RESULT
  56. IF frnum = 0 THEN DO
  57.     LoadAnimBrush
  58.     IF RC = 0 THEN DO
  59.         GetBrushAttr FRAMES
  60.         frnum = RESULT
  61.         loaded = 1
  62.     END
  63. END
  64. IF frnum > 0 THEN DO
  65.     GetBrushAttr WIDTH
  66.     bw = RESULT
  67.     GetBrushAttr HEIGHT
  68.     bh = RESULT
  69.     GetBrushAttr COLORS
  70.     bcol = RESULT
  71.     GetBrushAttr DISPLAY
  72.     bdisp = RESULT
  73.     GetBrushAttr HANDLEX
  74.     bhx = RESULT
  75.     GetBrushAttr HANDLEY
  76.     bhy = RESULT
  77.     GetBrushAttr FRLENGTH
  78.     bfl = RESULT
  79.     GetBrushAttr FRPOS
  80.     bfp = RESULT
  81.  
  82.     DelFrames ALL FORCE
  83.     ClearImage FORCE
  84.  
  85.     Set '"IMAGEW='bw'" "IMAGEH='bh'" "COLORS='bcol'" "DISPLAY='bdisp'" "SCREENW='bw'" "SCREENH='bh'" "ASCROLL=0"'
  86.     IF RC = 0 THEN DO
  87.         AddFrames frnum
  88.         IF RC = 0 THEN DO
  89.             SetFramePos 1
  90.             SetBrushAttr HANDLEX 0 HANDLEY 0 FRLENGTH frnum FRPOS 1
  91.             PaintMode REPLACE
  92.             DO frm = 1 TO frnum
  93.                 PutBrush 0 0
  94.                 UseBrushPalette
  95.                 SetFramePos NEXT
  96.             END
  97.             SaveAnim
  98.         END
  99.         ELSE DO
  100.             errmess = 'Environment frames_cannot be created'
  101.             SAY errmess
  102.             RequestNotify 'PROMPT="'errmess'"'
  103.         END
  104.     END
  105.     ELSE DO
  106.         errmess = 'Environment format_cannot be set'
  107.         SAY errmess
  108.         RequestNotify 'PROMPT="'errmess'"'
  109.     END
  110.  
  111.     SetBrushAttr HANDLEX bhx HANDLEY bhy FRLENGTH bfl FRPOS bfp
  112.     DelFrames ALL FORCE
  113.     ClearImage FORCE
  114. END
  115. IF loaded THEN
  116.     FreeBrush FORCE
  117.  
  118. UnlockGUI
  119.